home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / popupf / fixed.frm < prev    next >
Text File  |  1995-03-08  |  4KB  |  193 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Fixed!"
  5.    ClientHeight    =   3060
  6.    ClientLeft      =   1080
  7.    ClientTop       =   1740
  8.    ClientWidth     =   3285
  9.    Height          =   3750
  10.    Icon            =   FIXED.FRX:0000
  11.    Left            =   1020
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3060
  16.    ScaleWidth      =   3285
  17.    Top             =   1110
  18.    Width           =   3405
  19.    Begin Label Label2 
  20.       Alignment       =   2  'Center
  21.       BackColor       =   &H000000FF&
  22.       BorderStyle     =   1  'Fixed Single
  23.       Caption         =   "Popup Menu5"
  24.       ForeColor       =   &H00FFFFFF&
  25.       Height          =   1335
  26.       Left            =   120
  27.       TabIndex        =   1
  28.       Top             =   1560
  29.       Width           =   3015
  30.    End
  31.    Begin Label Label1 
  32.       Alignment       =   2  'Center
  33.       BackColor       =   &H00800000&
  34.       BorderStyle     =   1  'Fixed Single
  35.       Caption         =   "Popup Menu4"
  36.       ForeColor       =   &H00FFFFFF&
  37.       Height          =   1395
  38.       Left            =   120
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   3015
  42.    End
  43.    Begin Menu Menu1 
  44.       Caption         =   "Menu 1"
  45.       Begin Menu Menu11 
  46.          Caption         =   "Make Menu 2 Visible"
  47.          Enabled         =   0   'False
  48.       End
  49.       Begin Menu Menu12 
  50.          Caption         =   "Pop-up Menu 2"
  51.       End
  52.       Begin Menu mSep 
  53.          Caption         =   "-"
  54.       End
  55.       Begin Menu mExit 
  56.          Caption         =   "E&xit"
  57.       End
  58.    End
  59.    Begin Menu Menu2 
  60.       Caption         =   "Menu 2"
  61.       Begin Menu Menu21 
  62.          Caption         =   "Menu 2.1"
  63.       End
  64.       Begin Menu Menu22 
  65.          Caption         =   "Make Menu 2 Invisible"
  66.       End
  67.    End
  68.    Begin Menu Menu3 
  69.       Caption         =   "Menu 3"
  70.       Begin Menu Menu31 
  71.          Caption         =   "Menu 3.1"
  72.       End
  73.       Begin Menu Menu32 
  74.          Caption         =   "Menu 3.2"
  75.       End
  76.       Begin Menu Menu4 
  77.          Caption         =   "Menu 4 (Invis. Popup)"
  78.          Visible         =   0   'False
  79.          Begin Menu Menu41 
  80.             Caption         =   "Menu 4.1"
  81.          End
  82.          Begin Menu Menu42 
  83.             Caption         =   "Menu 4.2"
  84.          End
  85.          Begin Menu Menu43 
  86.             Caption         =   "Menu 4.3"
  87.          End
  88.       End
  89.       Begin Menu Menu5 
  90.          Caption         =   "Menu 5 (Invis. Popup)"
  91.          Visible         =   0   'False
  92.          Begin Menu Menu51 
  93.             Caption         =   "Menu 5.1"
  94.          End
  95.          Begin Menu Menu52 
  96.             Caption         =   "Menu 5.2"
  97.          End
  98.       End
  99.    End
  100. End
  101. Option Explicit
  102.  
  103. Sub Form_Load ()
  104.     
  105.     Left = (Screen.Width - Width) \ 2
  106.     Top = (Screen.Height - Height) \ 2
  107.  
  108. End Sub
  109.  
  110. Sub Label1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  111.  
  112.     If (Button = 2) Then
  113.         Popup_Menu Menu4
  114.     End If
  115.  
  116. End Sub
  117.  
  118. Sub Label2_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  119.  
  120.     If (Button = 2) Then
  121.         Popup_Menu Menu5
  122.     End If
  123.  
  124. End Sub
  125.  
  126. Sub Menu11_Click ()
  127.  
  128.     Menu2.Visible = True
  129.     Menu11.Enabled = False
  130.     Menu22.Enabled = True
  131.  
  132. End Sub
  133.  
  134. Sub Menu12_Click ()
  135.  
  136.     If (Menu2.Visible = False) Then
  137.         Menu2.Visible = True
  138.         MsgBox "Make Menu 2 visible on the main bar if it is available anyway!"
  139.     End If
  140.     Menu22.Enabled = True
  141.     Menu11.Enabled = False
  142.     Popup_Menu Menu2
  143.  
  144. End Sub
  145.  
  146. Sub Menu21_Click ()
  147.  
  148.     MsgBox "Menu 2.1"
  149.  
  150. End Sub
  151.  
  152. Sub Menu22_Click ()
  153.  
  154.     MsgBox "Menu 2.1: Menu 2 will be invisible now."
  155.     Menu11.Enabled = True
  156.     Menu22.Enabled = False
  157.     Menu2.Visible = False
  158.  
  159. End Sub
  160.  
  161. Sub Menu41_Click ()
  162.  
  163.     MsgBox "Menu 4.1!"
  164.  
  165. End Sub
  166.  
  167. Sub Menu51_Click ()
  168.  
  169.     MsgBox "Menu 5.1!"
  170.  
  171. End Sub
  172.  
  173. Sub mExit_Click ()
  174.  
  175.     Unload Me
  176.     End
  177.  
  178. End Sub
  179.  
  180. Sub Popup_Menu (m As Menu)
  181.  
  182. 'Here, I left the other three parameters for PopUpMenu
  183. 'out, since I always use 4 (for example)
  184.  
  185.     Menu4.Visible = True
  186.     Menu5.Visible = True
  187.     PopupMenu m, 4
  188.     Menu4.Visible = False
  189.     Menu5.Visible = False
  190.  
  191. End Sub
  192.  
  193.